home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle: Internet utan modem / Internet CD.iso / nerd31 / ctime16 / ccm.mst < prev    next >
Encoding:
Text File  |  1995-12-12  |  6.4 KB  |  226 lines
  1. '**************************************************************************
  2. '* CCM Setup Script for Version 2.8.6
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST OPTIONS       = 800
  18. CONST APPHELP       = 900
  19. CONST BADPATH       = 6400
  20. CONST CDALREADYUSED = 7100
  21. CONST CDBADFILE     = 7200
  22. CONST SW_SHOWMAXIMIZED=3
  23.  
  24. ''Bitmap ID
  25. CONST LOGO = 1
  26.  
  27. GLOBAL DEST$        ''Default destination directory.
  28. GLOBAL OPTCUR$      ''Option selection from option dialog.
  29.  
  30. GLOBAL Grp%
  31. GLOBAL C3D%
  32.  
  33. DECLARE SUB Install
  34. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  35. DECLARE FUNCTION ShowWindow  LIB "user.exe" (hWnd%,iShow%) AS INTEGER
  36.  
  37.  
  38. INIT:
  39.     hWnd%=HwndFrame()
  40.     junk%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED)
  41.  
  42.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  43.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  44.  
  45.     SetBitmap CUIDLL$, LOGO
  46.     SetTitle "Connect Monitor Version 2.8.6 Setup"
  47.  
  48.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  49.     IF szInf$ = "" THEN
  50.         szInf$ = GetSymbolValue("STF_CWDDIR") + "ccm.INF"
  51.     END IF
  52.     ReadInfFile szInf$
  53.  
  54.     OPTCUR$ = "1"
  55.     DEST$ = "C:\CCM20"
  56.  
  57. '$IFDEF DEBUG
  58.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  59.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  60.     IF IsDriveValid(WinDrive$) = 0 THEN
  61.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  62.         GOTO QUIT
  63.     END IF
  64. '$ENDIF ''DEBUG
  65.  
  66. '*****************************************************************************
  67. '*  Display the Main Startup Dialog
  68. '*****************************************************************************
  69. WELCOME:
  70.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  71.     IF sz$ = "CONTINUE" THEN
  72.         UIPop 1
  73.     ELSE
  74.         GOSUB ASKQUIT
  75.         GOTO WELCOME
  76.     END IF
  77. '*****************************************************************************
  78. '*  Get the installation Destination path
  79. '*****************************************************************************
  80. GETPATH:
  81.     SetSymbolValue "EditTextIn", DEST$
  82.     SetSymbolValue "EditFocus", "END"
  83. GETPATHL1:
  84.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  85.     DEST$ = GetSymbolValue("EditTextOut")
  86.  
  87.     IF sz$ = "CONTINUE" THEN
  88.         IF IsDirWritable(DEST$) = 0 THEN
  89.             GOSUB BADPATH
  90.             GOTO GETPATHL1
  91.         END IF
  92.         UIPop 1
  93.     ELSEIF sz$ = "REACTIVATE" THEN
  94.         GOTO GETPATHL1
  95.     ELSEIF sz$ = "BACK" THEN
  96.         UIPop 1
  97.         GOTO WELCOME
  98.     ELSE
  99.         GOSUB ASKQUIT
  100.         GOTO GETPATH
  101.     END IF
  102. '*****************************************************************************
  103. '*  Ask Whether To Create A Program Group Or Not
  104. '*****************************************************************************
  105.     sz$ = UIStartDlg(CUIDLL$, CDALREADYUSED, "FInfo0DlgProc", 0, "")
  106.     UIPop 1
  107.     if sz$ = "CONTINUE" then
  108.       Grp%=1
  109.     else
  110.       Grp%=0
  111.     end if
  112. '*****************************************************************************
  113. '*  Ask Whether To Update CTL3DV2.DLL
  114. '*****************************************************************************
  115.     sz$ = UIStartDlg(CUIDLL$, CDBADFILE, "FInfo0DlgProc", 0, "")
  116.     UIPop 1
  117.     if sz$ = "CONTINUE" then
  118.       C3D%=1
  119.     else
  120.       C3D%=0
  121.     end if
  122.     Install
  123.  
  124.  
  125. QUIT:
  126.     ON ERROR GOTO ERRQUIT
  127.  
  128.     IF ERR = 0 THEN
  129.         dlg% = EXITSUCCESS
  130.     ELSEIF ERR = STFQUIT THEN
  131.         dlg% = EXITQUIT
  132.     ELSE
  133.         dlg% = EXITFAILURE
  134.     END IF
  135. QUITL1:
  136.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  137.     IF sz$ = "REACTIVATE" THEN
  138.         GOTO QUITL1
  139.     END IF
  140.     UIPop 1
  141.  
  142.     END
  143.  
  144. ERRQUIT:
  145.     i% = DoMsgBox("Setup sources were corrupted!", "Setup Message", MB_OK)
  146.     END
  147.  
  148.  
  149.  
  150. BADPATH:
  151.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  152.     IF sz$ = "REACTIVATE" THEN
  153.         GOTO BADPATH
  154.     END IF
  155.     UIPop 1
  156.     RETURN
  157.  
  158.  
  159.  
  160. ASKQUIT:
  161.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  162.  
  163.     IF sz$ = "EXIT" THEN
  164.         UIPopAll
  165.         ERROR STFQUIT
  166.     ELSEIF sz$ = "REACTIVATE" THEN
  167.         GOTO ASKQUIT
  168.     ELSE
  169.         UIPop 1
  170.     END IF
  171.     RETURN
  172.  
  173. '*****************************************************************************
  174. '*  MaIn INSTALL Routine                         
  175. '*****************************************************************************
  176. SUB Install STATIC
  177.  
  178.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  179.     SystemDir$ = GetWindowsSysDir()
  180.  
  181.     CreateDir DEST$, cmoNone
  182.  
  183.     AddSectionFilesToCopyList "Normal", SrcDir$, DEST$
  184.     CopyFilesInCopyList
  185.  
  186.     if C3D% = 1 then
  187.       AddSectionFilesToCopyList "Shared", SrcDir$, SystemDir$
  188.       CopyFilesInCopyList
  189.     End if
  190.  
  191.     if Grp% = 1 Then
  192.       CreateProgmanGroup "Connect Monitor", "", cmoNone
  193.       ShowProgmanGroup  "Connect Monitor", 1, cmoNone
  194.       CreateProgmanItem "Connect Monitor", "Connect Monitor V2.8.6", MakePath(DEST$,"ccm20.exe"), "", cmoOverwrite
  195.       CreateProgmanItem "Connect Monitor", "CCM20 Help", "winhelp "+MakePath(DEST$,"ccm20.hlp"), "", cmoOverwrite
  196.       CreateProgmanItem "Connect Monitor", "CCM20 Readme", "write "+MakePath(DEST$,"readme.wri"), "", cmoOverwrite
  197.       CreateProgmanItem "Connect Monitor", "CCM20 Survey", "notepad "+MakePath(DEST$,"survey.txt"), "", cmoOverwrite
  198.     end if
  199.  
  200. END SUB
  201.  
  202.  
  203.  
  204. '**
  205. '** Purpose:
  206. '**     Appends a file name to the end of a directory path,
  207. '**     inserting a backslash character as needed.
  208. '** Arguments:
  209. '**     szDir$  - full directory path (with optional ending "\")
  210. '**     szFile$ - filename to append to directory
  211. '** Returns:
  212. '**     Resulting fully qualified path name.
  213. '*************************************************************************
  214. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  215.     IF szDir$ = "" THEN
  216.         MakePath = szFile$
  217.     ELSEIF szFile$ = "" THEN
  218.         MakePath = szDir$
  219.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  220.         MakePath = szDir$ + szFile$
  221.     ELSE
  222.         MakePath = szDir$ + "\" + szFile$
  223.     END IF
  224. END FUNCTION
  225.  
  226.